10 REM AUTO CHARACTER EDITOR
20 REM LUDO DECOCK
30 REM LINDENSTRAAT 26
40 REM 8840 GITS
50 REM BELGIUM
100 A=A+1:IFA=1THENLOAD"AUTO C",8,1
110 POKE53280,0:POKE53281,0:PRINTCHR$(147)CHR$(14)CHR$(9):POKE2,0:POKE787,0
130 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
140 PRINT" [206]OLUXE AUTO-CHARACTER EDITOR [146]"
150 PRINT"    ([195]) 1987 [198]LOSSOFTWARE     [146]"
160 PRINT"[154][212]HIS PROGRAM CONVERTS A CHARACTER SET"
170 PRINT"WITH LOAD ADDRESS 12288, TO A [206][207][204][213][216][197]"
180 PRINT"CHARACTER SET."
190 PRINT"[150][198]ILENAME CHARACTER SET (Q)?":POKE19,1:INPUT"[158]";FI$
200 POKE19,0:IFLEN(FI$)<1ORLEN(FI$)>16THENGOTO190
210 IFFI$="Q"THENPRINT"[147]":SYS51200:GOTO250
220 PRINT:PRINT"[208]UT DISK WITH CHARACTERSET IN DRIVE !!"
230 PRINT"[155] [208][210][197][211][211] [193] [203][197][217] [146]":POKE198,0:WAIT198,1
240 SYS57812FI$,8,1:POKE780,0:SYS65493
250 FORX=12288TO12295:POKEX,255:NEXTX
260 FORX=12288+(32*8)TO12288+7+(32*8):POKEX,0:NEXTX
270 FORX=12288+(160*8)TO12288+5+(160*8):POKEX,252:NEXTX
280 FORX=12288+6+(160*8)TO12288+7+(160*8):POKEX,0:NEXTX
290 IFFI$<>"Q"THENPRINT"[147]":GOTO330
300 PRINTCHR$(14)"[147][155][195]HARACTERSET 1 OR 2 ?":INPUT"";K$
310 IFK$<>"1"ANDK$<>"2"THENGOTO300
320 IFK$="2"THENPOKE787,10
330 PRINT"[147][195]HARACTERS DOUBLE IN [216], [217] OR [206]ORMAL.":INPUT"";D$
340 IFD$<>"X"ANDD$<>"Y"ANDD$<>"N"THENGOTO330
350 IFD$="X"THENPOKE2,10
360 IFD$="Y"THENPOKE2,100
370 PRINT"[156] PRESS A KEY [146]"
380 POKE198,0:WAIT198,1
390 POKE55,0:POKE56,48:RUN400
400 IFPEEK(2)=10THENDX=8
410 IFPEEK(2)=100THENDY=8
420 AD=12288:IFPEEK(787)=10THENAD=14336
430 POKE56334,1:POKE53272,PEEK(53272)AND240OR(AD/1024):DIMTE$(36)
440 IFPEEK(787)=10THENPRINTCHR$(142)
450 FORCH=48TO90:IFCH>57ANDCH<65THENGOTO650
460 PRINT"[144]";CHR$(CH):LE=LE+1
470 P=PEEK(1024):P=P*8:A=AD+P
480 PRINT"[147][159]CONVERTING NOLUXE CHARACTER SET":FORX=0TO7:A(X+1)=PEEK(A+X):NEXTX
490 PRINT"":FORC=1TO8:PRINTTAB(12);
500 FORX=1TO8
510 B=INT(A(C)/2):B=B*2:B=A(C)-B
520 IFB=0THENA$(X)=A$(X)+" [146]"
530 IFB=1THENA$(X)=A$(X)+"@"
540 A(C)=INT(A(C)/2)
550 NEXTX
560 FORI=8TO1STEP-1:PRINTA$(I);
570 IFPEEK(2)=10THENPRINTA$(I);
580 IFPEEK(2)=100THENNEXTI:PRINT:FORI=8TO1STEP-1:PRINTTAB(12);A$(I);
590 A$(I)="":NEXTI:PRINT
600 NEXTC
610 TE$(LE)="":FORS=1316TO(1324+DX):SO=0
620 FORSS=STOS+((DY+8)*40)STEP40:SO=PEEK(SS):IFSO=0THENTE$(LE)=TE$(LE)+"1":NEXTSS
630 IFSO=160THENTE$(LE)=TE$(LE)+"0":NEXTSS
640 NEXTS
650 NEXTCH
660 POKE53272,PEEK(53272)AND240OR21
670 PRINT"[147]SAVEN DISK : FILENAME ?"
680 POKE19,1:INPUT"[154]";FI$:IFLEN(FI$)<0ORLEN(FI$)>13THEN670
690 POKE19,0:FI$="K."+LEFT$(FI$,LEN(FI$)):OPEN2,8,2,FI$+",S,W"
700 PRINT#2,8+DX:PRINT#2,8+DY:FORF=1TO36
710 PRINT#2,LEN(TE$(F)):PRINT#2,TE$(F):NEXTF:CLOSE2:
720 PRINT"[147]"
730 POKE2,0:POKE787,0:RUN110